home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
a2z.zip
/
ADDR.COD
< prev
next >
Wrap
Text File
|
1994-02-03
|
3KB
|
105 lines
*
Key = Concat(Last,@,First,@,Mid)
If City = Blank Or
If State = Blank Then
Link Zip[C:Zip] = Zip
If Record_Linked = Y Then
City = City[C:Zip]
State = State[C:Zip]
Else
City = 'Not Found'
Endif
Endif
*
If City <> 'Not Found' Then
Link Rec[C:Labl] = Write
Key[C:Labl] = Key
If Mid = Blank Then
M1[C:Labl] = Concat(First,@,Last)
Else
M1[C:Labl] = Concat(First,@,Mid,@,Last)
Endif
M2[C:Labl] = Addr
State = Upper
M3[C:Labl] = Concat(City,@,State,@,Zip)
W1 = M1[C:Labl]
W2 = M2[C:Labl]
W3 = M3[C:Labl]
*
Link Rec[C:Letr] = Write
Key[C:Letr] = Key
@L1[C:Letr] = W1
Dmil = Sysdmil
*
String(@L1[C:Letr],54,3) = String(Dmil,4,3)
String(@L1[C:Letr],58,2) = String(Dmil,1,2)
String(@L1[C:Letr],60,1) = ,
String(@L1[C:Letr],62,4) = String(Dmil,8,4)
*
@L2[C:Letr] = W2
@L3[C:Letr] = W3
@L4[C:Letr] = Blank
@L5[C:Letr] = Blank
*
W2 = Parse(W1)
W1 = 'Dear'
W3 = ,
@L6[C:Letr] = Concat(W1,@,W2,W3)
@L7[C:Letr] = Blank
*
@L8[C:Letr] = 'This letter was created by A2Z using its relationa'
String(@L8[C:Letr],51,15) = 'l ability to '
@L9[C:Letr] = 'extract and merge data from multiple files under m'
String(@L9[C:Letr],51,15) = 'acro control '
@L10[C:Letr] = 'to create output files such as this custom letter.'
*
String(@L10[C:Letr],53,12) = Concat(W2,W3)
*
W1 = 'I'm'
W2 = 'sure you can appreciate the power of A2Z demonstra'
W3 = 'ted here!'
*
If String(@L10[C:Letr],54,1) = , Then
String(@L10[C:Letr],56,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],55,1) = , Then
String(@L10[C:Letr],57,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],56,1) = , Then
String(@L10[C:Letr],58,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],57,1) = , Then
String(@L10[C:Letr],59,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],58,1) = , Then
String(@L10[C:Letr],60,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],59,1) = , Then
String(@L10[C:Letr],61,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
If String(@L10[C:Letr],60,1) = , Then
String(@L10[C:Letr],62,4) = W1
@L11[C:Letr] = W2
String(@L11[C:Letr],51,15) = W3
Else
@L11[C:Letr] = 'I'M sure you can appreciate the power of A2Z demon'
String(@L11[C:Letr],51,15) = 'strated here! '
Endif
*
@L12[C:Letr] = Blank
@Include[C:Letr] = C:Form
*
Endif